home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh12a.d64 / basic-demo 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  61 lines
  1. 10 REM ******************
  2. 20 REM * DEMOPROGRAMM 1 *
  3. 30 REM ******************
  4. 40 :
  5. 50 :
  6. 60 IF A=0 THEN A=1:LOAD"PULL-DOWN-OBJECT",8,1:REM ROUTINEN NACHLADEN
  7. 70 :
  8. 100 DIM A$(40):PRINT CHR$(147)
  9. 110 K$="FILE DISK EDIT HELP"
  10. 120 A$(1)="      "
  11. 130 A$(2)="LOAD"
  12. 140 A$(3)="SAVE"
  13. 150 A$(4)="COPY"
  14. 160 A$(5)="RENAME"
  15. 170 A$(6)="DELETE"
  16. 180 A$(7)="          "
  17. 190 A$(8)="DIRECTORY"
  18. 200 A$(9)="NAME"
  19. 210 A$(10)="ID"
  20. 220 A$(11)="COPY"
  21. 230 A$(12)="DELETE"
  22. 240 A$(13)="VALIDATE"
  23. 250 A$(14)="INITIALISE"
  24. 260 A$(15)="            "
  25. 270 A$(16)="MOVE BLOCK"
  26. 280 A$(17)="COPY BLOCK"
  27. 290 A$(18)="DELETE BLOCK"
  28. 300 A$(19)="SAVE BLOCK"
  29. 310 A$(20)="LOAD BLOCK"
  30. 320 A$(21)="PRINT BLOCK"
  31. 330 A$(22)="              "
  32. 340 A$(23)="NOTEPAD"
  33. 350 A$(24)="CALCULATOR"
  34. 360 A$(25)="DATABASE"
  35. 370 A$(26)="WORD PROCESSOR"
  36. 380 A$(27)="SPREADSHEET"
  37. 390 A$(28)="FILE-HANDLING"
  38. 400 A$(29)="DISK-HANDLING"
  39. 410 A$(30)="  "
  40. 500 PRINT CHR$(19)
  41. 504 PRINT:PRINT"DIES IST EIN TEST DER ROUTINEN"
  42. 505 PRINT"ZUR VERWALTUNG VON PULL-DOWN-MENUES"
  43. 510 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  44. 520 PRINT "AUFRUF : CTRL-TASTE DRUECKEN"
  45. 521 PRINT
  46. 522 PRINT"STEUERUNG: CURSORTASTEN ZUM BLAETTERN"
  47. 523 PRINT"VON MENUE ZU MENUE UND ZUR AUSWAHL IM"
  48. 524 PRINT"UNTERMENUE. ANWAHL: 'RETURN'"
  49. 525 PRINT
  50. 526 PRINT"ALTERNATIV:'CTRL'+MENUEANFANGSBUCHSTABE"
  51. 527 PRINT"UND MENUEPUNKTAUSWAHL DURCH"
  52. 528 PRINT"JEWEILIGEN ANFANGSBUCHSTABEN";
  53. 530 IF PEEK(653)<>4 THEN 530
  54. 540 SYS 50697,K$,A$(1)
  55. 550 PRINT CHR$(19)
  56. 560 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  57. 565 PRINT"GETROFFENE AUSWAHL:"
  58. 570 PRINT "MENUE NR.    [157][157][157][157][157]"PEEK(167)+1
  59. 580 PRINT "MENUEPUNKT NR.    [157][157][157][157]"PEEK(168)+1"
  60. 590 [137] 500
  61.